home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / os2 / adaptor.zip / ADAPT.ZIP / adaptor / examples / hpf_gen / pi / prompt.fcm < prev    next >
Text File  |  1993-03-23  |  843b  |  39 lines
  1. c
  2. c   prompt.f 91/21/11 
  3. c
  4. c   Function which prompts the user for the integration parameters 
  5. c
  6.  
  7.     integer*4 function userinpt (a, b, points)
  8.  
  9.     double precision a, b
  10.     integer*4 points
  11.         integer*4 i
  12.  
  13.         print *, ' '
  14.         print *, '******************** INTEGRATION EXAMPLE ***********************'
  15.         print *
  16.         print *, 'This Example uses the iPSC to calculate pi by integrating    '
  17.     print *, 'the function:'
  18.         print *, '        f(x) = 4 / (1 + x**2)'
  19.         print *, 'between x=0 and x=1.'
  20.         print *, 'The method used is the n-point rectangle quadrature rule.'
  21.     print *
  22.     write(6,99)
  23. 99    format(' How many points do you want (0 or neg. value quits)? ')
  24.     read (5, 110) points
  25. 110    format(i10)
  26.  
  27.         a = 0.0
  28.         b = 1.0
  29.         i = 0
  30.         
  31.     if (points .gt. 0) then 
  32.          i = 1
  33.         else 
  34.          i = 0
  35.     endif
  36.     userinpt = i
  37.     return 
  38.     end
  39.